home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / rlib / hilb < prev    next >
Text File  |  1994-09-23  |  344b  |  22 lines
  1. //-------------------------------------------------------------------//
  2. //
  3. //  Syntax:    hilb ( N )
  4.  
  5. //  Description:
  6.  
  7. //  Generate a NxN Hilbert matrix.
  8.  
  9. //-------------------------------------------------------------------//
  10.  
  11. hilb = function(n)
  12. {
  13.   for(i in 1:n) 
  14.   {
  15.     for(j in 1:n) 
  16.     {
  17.       h[i;j] = 1/(i+j-1);
  18.     }
  19.   }
  20.   return h;
  21. };
  22.